* src/bytecode.c (sf_set_ptr): Cast pointer to type of right size.

diff --git a/src/bytecode.c b/src/bytecode.c
index 9356ebeb6cb8565d103da012282def672b9890b5..b26146c27f383b2314231b5aef4249ef078bf265 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -393,7 +393,7 @@ sf_get_ptr (Lisp_Object *fp, enum stack_frame_index index)
 INLINE void
 sf_set_ptr (Lisp_Object *fp, enum stack_frame_index index, void *value)
 {
-  fp[index] = XIL ((EMACS_INT)value);
+  fp[index] = XIL ((uintptr_t)value);
 }
 
 INLINE Lisp_Object *